/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / MIDI / N-Z / OCTAPAD II.sit / Roland Octapad II (NR).rsrc / M2PS_25191_Pad-80-patches (NR)

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 00 00 04 ff 00 2a | 00 05 01 4c 01 e0 2d 2d |.......*|...L..--|
|00000010| 20 4f 63 74 70 61 64 20 | 49 49 20 2d 20 73 65 6e | Octpad |II - sen|
|00000020| 64 20 62 61 6e 6b 20 73 | 63 72 69 70 74 2e 20 20 |d bank s|cript.  |
|00000030| 41 64 61 6d 20 4d 63 49 | 6e 6e 69 73 20 30 36 2f |Adam McI|nnis 06/|
|00000040| 33 30 2f 39 31 2e 0d 2d | 2d 20 53 63 72 69 70 74 |30/91..-|- Script|
|00000050| 20 6d 6f 64 69 66 69 65 | 64 20 66 72 6f 6d 20 41 | modifie|d from A|
|00000060| 72 6f 6e 27 73 20 55 2d | 32 32 30 20 73 63 72 69 |ron's U-|220 scri|
|00000070| 70 74 2e 0d 0d 70 75 74 | 20 20 33 37 30 20 69 6e |pt...put|  370 in|
|00000080| 74 6f 20 42 6c 6f 63 6b | 53 69 7a 65 0d 70 75 74 |to Block|Size.put|
|00000090| 20 20 20 30 20 69 6e 74 | 6f 20 42 6c 6f 63 6b 0d |   0 int|o Block.|
|000000a0| 70 75 74 20 20 36 34 20 | 69 6e 74 6f 20 4e 75 6d |put  64 |into Num|
|000000b0| 50 61 63 6b 65 74 73 0d | 70 75 74 20 24 30 30 20 |Packets.|put $00 |
|000000c0| 69 6e 74 6f 20 48 64 72 | 0d 70 75 74 20 24 30 30 |into Hdr|.put $00|
|000000d0| 20 69 6e 74 6f 20 63 6e | 74 0d 50 75 74 20 24 46 | into cn|t.Put $F|
|000000e0| 30 20 24 34 31 20 64 65 | 76 69 63 65 49 44 20 24 |0 $41 de|viceID $|
|000000f0| 32 35 20 24 31 32 20 69 | 6e 74 6f 20 53 79 73 45 |25 $12 i|nto SysE|
|00000100| 78 0d 0d 44 6f 41 6c 65 | 72 74 20 22 4f 6e 20 74 |x..DoAle|rt "On t|
|00000110| 68 65 20 4f 63 74 61 70 | 61 64 20 49 49 20 69 6e |he Octap|ad II in|
|00000120| 20 45 64 69 74 20 6d 6f | 64 65 3a 5c 0d 31 2e 20 | Edit mo|de:\.1. |
|00000130| 50 72 65 73 73 20 74 68 | 65 20 4d 49 44 49 20 6b |Press th|e MIDI k|
|00000140| 65 79 2e 5c 0d 32 2e 20 | 50 72 65 73 73 20 74 68 |ey.\.2. |Press th|
|00000150| 65 20 6f 70 65 6e 20 62 | 61 63 6b 20 61 72 72 6f |e open b|ack arro|
|00000160| 77 20 6b 65 79 20 6f 6e | 63 65 2e 5c 0d 33 2e 20 |w key on|ce.\.3. |
|00000170| 50 72 65 73 73 20 45 6e | 74 65 72 2e 22 20 69 6e |Press En|ter." in|
|00000180| 74 6f 20 72 65 73 75 6c | 74 0d 0d 69 66 20 72 65 |to resul|t..if re|
|00000190| 73 75 6c 74 3d 31 20 74 | 68 65 6e 0d 0d 2d 2d 20 |sult=1 t|hen..-- |
|000001a0| 4f 32 4e 43 4e 20 2d 3e | 20 63 75 73 74 6f 6d 20 |O2NCN ->| custom |
|000001b0| 6e 61 6d 65 20 63 6f 6e | 76 65 72 73 69 6f 6e 20 |name con|version |
|000001c0| 28 6e 65 77 20 72 6f 6d | 29 20 70 72 6f 67 72 61 |(new rom|) progra|
|000001d0| 6d 20 77 72 69 74 74 65 | 6e 20 69 6e 20 54 68 69 |m writte|n in Thi|
|000001e0| 6e 6b 20 43 2e 0d 20 20 | 20 4f 32 4e 43 4e 20 62 |nk C..  | O2NCN b|
|000001f0| 61 6e 6b 20 69 6e 74 6f | 20 74 65 6d 70 0d 20 20 |ank into| temp.  |
|00000200| 20 4e 69 62 62 6c 69 7a | 65 20 74 65 6d 70 20 69 | Nibbliz|e temp i|
|00000210| 6e 74 6f 20 4e 64 61 74 | 61 0d 0d 20 20 20 72 65 |nto Ndat|a..   re|
|00000220| 70 65 61 74 0d 20 20 20 | 20 20 70 75 74 20 42 6c |peat.   |  put Bl|
|00000230| 6f 63 6b 53 69 7a 65 2a | 42 6c 6f 63 6b 20 69 6e |ockSize*|Block in|
|00000240| 74 6f 20 69 0d 20 20 20 | 20 20 70 75 74 20 4e 64 |to i.   |  put Nd|
|00000250| 61 74 61 5b 69 2c 42 6c | 6f 63 6b 53 69 7a 65 5d |ata[i,Bl|ockSize]|
|00000260| 20 69 6e 74 6f 20 64 61 | 74 61 0d 0d 20 20 20 20 | into da|ta..    |
|00000270| 20 50 75 74 20 31 20 69 | 6e 74 6f 20 41 0d 20 20 | Put 1 i|nto A.  |
|00000280| 20 20 20 72 65 70 65 61 | 74 0d 20 20 20 20 20 20 |   repea|t.      |
|00000290| 20 69 66 20 41 3d 31 20 | 74 68 65 6e 20 3b 20 70 | if A=1 |then ; p|
|000002a0| 75 74 20 64 61 74 61 5b | 30 2c 31 32 38 5d 20 69 |ut data[|0,128] i|
|000002b0| 6e 74 6f 20 73 64 61 74 | 61 20 3b 20 65 6e 64 69 |nto sdat|a ; endi|
|000002c0| 66 0d 20 20 20 20 20 20 | 20 69 66 20 41 3d 32 20 |f.      | if A=2 |
|000002d0| 74 68 65 6e 20 3b 20 70 | 75 74 20 64 61 74 61 5b |then ; p|ut data[|
|000002e0| 31 32 38 2c 31 32 38 5d | 20 69 6e 74 6f 20 73 64 |128,128]| into sd|
|000002f0| 61 74 61 20 3b 20 65 6e | 64 69 66 0d 20 20 20 20 |ata ; en|dif.    |
|00000300| 20 20 20 69 66 20 41 3d | 33 20 74 68 65 6e 20 3b |   if A=|3 then ;|
|00000310| 20 70 75 74 20 64 61 74 | 61 5b 32 35 36 2c 31 31 | put dat|a[256,11|
|00000320| 34 5d 20 69 6e 74 6f 20 | 73 64 61 74 61 20 3b 20 |4] into |sdata ; |
|00000330| 65 6e 64 69 66 0d 20 20 | 20 20 20 20 0d 20 20 20 |endif.  |    .   |
|00000340| 20 20 20 20 70 75 74 20 | 48 64 72 20 63 6e 74 20 |    put |Hdr cnt |
|00000350| 30 30 20 69 6e 74 6f 20 | 61 64 64 72 0d 20 20 20 |00 into |addr.   |
|00000360| 20 20 20 20 63 68 65 63 | 6b 73 75 6d 30 20 61 64 |    chec|ksum0 ad|
|00000370| 64 72 20 73 64 61 74 61 | 20 69 6e 74 6f 20 63 68 |dr sdata| into ch|
|00000380| 65 63 6b 64 61 74 61 0d | 20 20 20 20 20 20 20 50 |eckdata.|       P|
|00000390| 75 74 20 53 79 73 45 78 | 20 63 68 65 63 6b 64 61 |ut SysEx| checkda|
|000003a0| 74 61 20 24 66 37 20 69 | 6e 74 6f 20 74 65 6d 70 |ta $f7 i|nto temp|
|000003b0| 0d 2d 2d 76 69 65 77 20 | 76 61 72 69 61 62 6c 65 |.--view |variable|
|000003c0| 73 0d 20 20 20 20 20 20 | 20 53 65 6e 64 20 74 65 |s.      | Send te|
|000003d0| 6d 70 0d 0d 20 20 20 20 | 20 20 20 69 66 20 63 6e |mp..    |   if cn|
|000003e0| 74 20 3d 20 24 37 45 20 | 74 68 65 6e 0d 20 20 20 |t = $7E |then.   |
|000003f0| 20 20 20 20 20 20 20 50 | 75 74 20 24 30 30 20 69 |       P|ut $00 i|
|00000400| 6e 74 6f 20 63 6e 74 0d | 20 20 20 20 20 20 20 20 |nto cnt.|        |
|00000410| 20 20 70 75 74 20 24 30 | 31 20 69 6e 74 6f 20 48 |  put $0|1 into H|
|00000420| 64 72 0d 20 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |dr.     |  else. |
|00000430| 20 20 20 20 20 20 20 20 | 20 70 75 74 20 63 6e 74 |        | put cnt|
|00000440| 2b 31 20 69 6e 74 6f 20 | 63 6e 74 0d 20 20 20 20 |+1 into |cnt.    |
|00000450| 20 20 20 65 6e 64 69 66 | 0d 20 20 20 20 20 20 20 |   endif|.       |
|00000460| 70 75 74 20 41 2b 31 20 | 69 6e 74 6f 20 41 0d 20 |put A+1 |into A. |
|00000470| 20 20 20 20 75 6e 74 69 | 6c 20 41 3d 34 0d 20 20 |    unti|l A=4.  |
|00000480| 20 20 20 69 66 20 48 64 | 72 20 3d 20 24 30 31 20 |   if Hd|r = $01 |
|00000490| 61 6e 64 20 63 6e 74 20 | 3d 20 24 30 30 20 74 68 |and cnt |= $00 th|
|000004a0| 65 6e 0d 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |en.     |else.   |
|000004b0| 20 20 20 20 70 75 74 20 | 63 6e 74 2b 31 20 69 6e |    put |cnt+1 in|
|000004c0| 74 6f 20 63 6e 74 0d 20 | 20 20 20 20 65 6e 64 69 |to cnt. |    endi|
|000004d0| 66 0d 20 20 20 20 20 70 | 75 74 20 62 6c 6f 63 6b |f.     p|ut block|
|000004e0| 2b 31 20 69 6e 74 6f 20 | 62 6c 6f 63 6b 0d 20 20 |+1 into |block.  |
|000004f0| 20 75 6e 74 69 6c 20 62 | 6c 6f 63 6b 3d 4e 75 6d | until b|lock=Num|
|00000500| 50 61 63 6b 65 74 73 0d | 65 6e 64 69 66 00 00 05 |Packets.|endif...|
|00000510| 00 00 00 96 00 00 20 19 | 3e be 20 19 28 4e 52 29 |...... .|>. .(NR)|
|00000520| 20 69 73 20 66 6f 72 20 | 4e 65 77 20 52 6f 6d 2e | is for |New Rom.|
|00000530| 20 20 49 66 20 79 6f 75 | 20 64 6f 20 61 20 62 75 |  If you| do a bu|
|00000540| 6c 6b 20 64 75 6d 70 20 | 61 6e 64 20 74 68 65 20 |lk dump |and the |
|00000550| 73 69 7a 65 20 69 73 20 | 32 35 34 37 32 20 74 68 |size is |25472 th|
|00000560| 65 6e 20 75 73 65 20 27 | 52 6f 6c 61 6e 64 20 4f |en use '|Roland O|
|00000570| 63 74 61 70 61 64 20 49 | 49 27 20 69 66 20 74 68 |ctapad I|I' if th|
|00000580| 65 20 73 69 7a 65 20 69 | 73 20 32 35 36 30 30 20 |e size i|s 25600 |
|00000590| 74 68 65 6e 20 75 73 65 | 20 27 52 6f 6c 61 6e 64 |then use| 'Roland|
|000005a0| 20 4f 63 74 61 70 61 64 | 20 49 49 20 28 4e 52 29 | Octapad| II (NR)|
|000005b0| 27 2e 00 08 00 00 02 34 | 00 bc 00 0e 01 53 01 e3 |'......4|.....S..|
|000005c0| 54 68 65 72 65 20 73 65 | 65 6d 20 74 6f 20 62 65 |There se|em to be|
|000005d0| 20 74 77 6f 20 76 65 72 | 73 69 6f 6e 73 20 6f 66 | two ver|sions of|
|000005e0| 20 74 68 65 20 4f 63 74 | 61 70 61 64 20 49 49 2e | the Oct|apad II.|
|000005f0| 20 46 69 72 73 74 20 64 | 6f 20 61 20 62 75 6c 6b | First d|o a bulk|
|00000600| 20 64 75 6d 70 20 69 6e | 74 6f 0d 62 75 6c 6b 20 | dump in|to.bulk |
|00000610| 73 74 6f 72 61 67 65 2e | 20 20 49 66 20 74 68 65 |storage.|  If the|
|00000620| 20 73 69 7a 65 20 69 73 | 20 32 35 34 37 32 20 74 | size is| 25472 t|
|00000630| 68 65 6e 20 75 73 65 20 | 27 52 6f 6c 61 6e 64 20 |hen use |'Roland |
|00000640| 4f 63 74 61 70 61 64 20 | 49 49 2d 6f 6c 64 20 72 |Octapad |II-old r|
|00000650| 6f 6d 27 0d 69 66 20 74 | 68 65 20 73 69 7a 65 20 |om'.if t|he size |
|00000660| 69 73 20 32 35 36 30 30 | 20 74 68 65 6e 20 75 73 |is 25600| then us|
|00000670| 65 20 27 52 6f 6c 61 6e | 64 20 4f 63 74 61 70 61 |e 'Rolan|d Octapa|
|00000680| 64 20 49 49 2d 6e 65 77 | 20 72 6f 6d 27 2e 0d 54 |d II-new| rom'..T|
|00000690| 68 65 20 6f 63 74 61 70 | 61 64 20 63 61 6e 20 6f |he octap|ad can o|
|000006a0| 6e 6c 79 20 75 73 65 20 | 63 65 72 74 61 69 6e 20 |nly use |certain |
|000006b0| 63 68 61 72 61 63 74 65 | 72 73 2c 20 73 6f 20 69 |characte|rs, so i|
|000006c0| 66 20 79 6f 75 20 74 79 | 70 65 20 69 6e 20 63 68 |f you ty|pe in ch|
|000006d0| 61 72 61 63 74 65 72 73 | 0d 6f 6e 20 74 68 65 20 |aracters|.on the |
|000006e0| 6d 61 63 69 6e 74 6f 73 | 68 20 74 68 61 74 20 61 |macintos|h that a|
|000006f0| 72 65 20 6e 6f 74 20 76 | 61 6c 69 64 2c 20 74 68 |re not v|alid, th|
|00000700| 65 79 20 77 69 6c 6c 20 | 62 65 20 63 6f 6e 76 65 |ey will |be conve|
|00000710| 72 74 65 64 20 74 6f 20 | 73 70 61 63 65 73 20 77 |rted to |spaces w|
|00000720| 68 65 6e 0d 74 68 65 79 | 20 67 65 74 20 73 65 6e |hen.they| get sen|
|00000730| 74 20 74 6f 20 74 68 65 | 20 6f 63 74 61 70 61 64 |t to the| octapad|
|00000740| 2e 0d 41 6c 73 6f 20 6e | 6f 74 65 20 74 68 61 74 |..Also n|ote that|
|00000750| 20 69 66 20 79 6f 75 20 | 68 61 76 65 20 50 61 74 | if you |have Pat|
|00000760| 63 68 20 43 68 61 69 6e | 73 2c 20 69 66 20 79 6f |ch Chain|s, if yo|
|00000770| 75 20 6d 6f 76 65 20 73 | 6f 6d 65 20 70 61 74 63 |u move s|ome patc|
|00000780| 68 65 73 20 61 72 6f 75 | 6e 64 0d 77 69 74 68 20 |hes arou|nd.with |
|00000790| 70 61 74 63 68 20 63 68 | 61 69 6e 73 2c 20 79 6f |patch ch|ains, yo|
|000007a0| 75 20 77 69 6c 6c 20 68 | 61 76 65 20 74 6f 20 72 |u will h|ave to r|
|000007b0| 65 64 6f 20 74 68 65 6d | 20 6f 6e 20 74 68 65 20 |edo them| on the |
|000007c0| 6f 63 74 61 70 61 64 20 | 28 74 68 69 73 20 70 72 |octapad |(this pr|
|000007d0| 6f 67 72 61 6d 0d 64 6f | 65 73 20 4e 4f 54 20 64 |ogram.do|es NOT d|
|000007e0| 6f 20 69 74 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |o it aut|omatical|
|000007f0| 6c 79 2e 29 00 03 00 00 | 02 95 00 49 00 0e 01 54 |ly.)....|...I...T|
|00000800| 01 ec 2d 2d 47 65 74 20 | 62 61 6e 6b 20 73 63 72 |..--Get |bank scr|
|00000810| 69 70 74 20 66 6f 72 20 | 74 68 65 20 4f 63 74 61 |ipt for |the Octa|
|00000820| 70 61 64 20 49 49 20 62 | 79 20 41 64 61 6d 20 4d |pad II b|y Adam M|
|00000830| 63 49 6e 6e 69 73 20 30 | 37 2f 31 30 2f 39 31 2e |cInnis 0|7/10/91.|
|00000840| 0d 0d 72 65 63 65 69 76 | 65 50 61 63 6b 65 74 73 |..receiv|ePackets|
|00000850| 20 38 20 32 20 20 32 35 | 36 30 30 20 69 6e 74 6f | 8 2  25|600 into|
|00000860| 20 74 65 73 74 c2 0d 57 | 61 69 74 20 22 52 65 61 | test..W|ait "Rea|
|00000870| 64 79 20 74 6f 20 72 65 | 63 65 69 76 65 20 61 20 |dy to re|ceive a |
|00000880| 62 61 6e 6b 20 6f 66 20 | 50 61 74 63 68 65 73 c9 |bank of |Patches.|
|00000890| 5c 0d 49 6e 20 45 64 69 | 74 20 6d 6f 64 65 2c 20 |\.In Edi|t mode, |
|000008a0| 70 75 73 68 20 74 68 65 | 20 4d 49 44 49 20 6b 65 |push the| MIDI ke|
|000008b0| 79 3a 5c 0d 20 20 31 2e | 20 50 72 65 73 73 20 74 |y:\.  1.| Press t|
|000008c0| 68 65 20 6f 70 65 6e 20 | 62 61 63 6b 20 61 72 72 |he open |back arr|
|000008d0| 6f 77 20 6b 65 79 20 74 | 77 6f 20 74 69 6d 65 73 |ow key t|wo times|
|000008e0| 20 28 66 6f 72 20 27 44 | 55 4d 50 27 29 5c 0d 20 | (for 'D|UMP')\. |
|000008f0| 20 32 2e 20 50 72 65 73 | 73 20 45 6e 74 65 72 2e | 2. Pres|s Enter.|
|00000900| 5c 0d 20 20 33 2e 20 50 | 72 65 73 73 20 74 68 65 |\.  3. P|ress the|
|00000910| 20 63 6c 6f 73 65 64 20 | 62 61 63 6b 20 61 72 72 | closed |back arr|
|00000920| 6f 77 20 6b 65 79 20 66 | 6f 72 20 27 41 4c 4c 27 |ow key f|or 'ALL'|
|00000930| 5c 0d 20 20 34 2e 20 50 | 72 65 73 73 20 45 6e 74 |\.  4. P|ress Ent|
|00000940| 65 72 22 0d 0d 0d 44 65 | 4e 69 62 62 6c 69 7a 65 |er"...De|Nibblize|
|00000950| 20 74 65 73 74 20 69 6e | 74 6f 20 74 65 6d 70 0d | test in|to temp.|
|00000960| 0d 2d 2d 20 4f 32 4e 55 | 4e 20 2d 3e 20 63 75 73 |.-- O2NU|N -> cus|
|00000970| 74 6f 6d 20 6e 61 6d 65 | 20 63 6f 6e 76 65 72 73 |tom name| convers|
|00000980| 69 6f 6e 20 28 6e 65 77 | 20 72 6f 6d 29 20 70 72 |ion (new| rom) pr|
|00000990| 6f 67 72 61 6d 20 77 72 | 69 74 74 65 6e 20 69 6e |ogram wr|itten in|
|000009a0| 20 54 68 69 6e 6b 20 43 | 2e 0d 2d 2d 20 69 66 20 | Think C|..-- if |
|000009b0| 74 65 6d 70 20 69 73 20 | 6c 65 73 73 20 74 68 61 |temp is |less tha|
|000009c0| 6e 20 31 31 38 34 30 20 | 69 6e 20 6c 65 6e 67 74 |n 11840 |in lengt|
|000009d0| 68 2c 20 64 6f 20 6e 6f | 74 20 63 61 6c 6c 20 63 |h, do no|t call c|
|000009e0| 6f 6e 76 65 72 73 69 6f | 6e 20 70 72 6f 67 72 61 |onversio|n progra|
|000009f0| 6d 0d 2d 2d 20 6f 72 20 | 77 69 6c 6c 20 62 6f 6d |m.-- or |will bom|
|00000a00| 62 2e 0d 69 66 20 53 69 | 7a 65 6f 66 28 74 65 6d |b..if Si|zeof(tem|
|00000a10| 70 29 20 3e 3d 20 31 31 | 38 34 30 20 74 68 65 6e |p) >= 11|840 then|
|00000a20| 0d 20 20 20 4f 32 4e 55 | 4e 20 74 65 6d 70 20 69 |.   O2NU|N temp i|
|00000a30| 6e 74 6f 20 62 61 6e 6b | 0d 65 6c 73 65 0d 20 20 |nto bank|.else.  |
|00000a40| 20 44 6f 41 6c 65 72 74 | 20 22 49 6e 63 6f 72 72 | DoAlert| "Incorr|
|00000a50| 65 63 74 20 62 61 6e 6b | 20 73 69 7a 65 2e 20 57 |ect bank| size. W|
|00000a60| 69 6c 6c 20 6e 6f 74 20 | 61 63 63 65 70 74 20 64 |ill not |accept d|
|00000a70| 75 6d 70 21 22 20 69 6e | 74 6f 20 72 65 73 70 0d |ump!" in|to resp.|
|00000a80| 65 6e 64 69 66 0d 0d 2d | 2d 76 69 65 77 20 76 61 |endif..-|-view va|
|00000a90| 72 69 61 62 6c 65 73 61 |                         |riablesa|        |
+--------+-------------------------+-------------------------+--------+--------+